Poni┐szy przyk│ad dodaje pole Zarobki typu Money do tabeli Pracownicy.
Sub AlterTableX1()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Dodaj pole Zarobki typu Money do tabeli
' Pracownicy.
dbs.Execute "ALTER TABLE Pracownicy " _
& "ADD COLUMN Zarobki MONEY;"
dbs.Close
End Sub
Poni┐szy przyk│ad zmienia typ danych pola Zarobki z typu Money na typ danych Char.
Sub AlterTableX2()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Dodaj pole Zarobki typu Money do tabeli
' Pracownicy.
dbs.Execute "ALTER TABLE Pracownicy " _
& "ALTER COLUMN Zarobki CHAR(20);"
dbs.Close
End Sub
W tym przyk│adzie pole Wynagrodzenie jest usuwane z tabeli Pracownicy.
Sub AlterTableX3()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Usu± pole Wynagrodzenie z tabeli Pracownicy.
dbs.Execute "ALTER TABLE Pracownicy " _
& "DROP COLUMN Wynagrodzenie;"
dbs.Close
End Sub
W tym przyk│adzie klucz obcy jest dodawany do tabeli Zam≤wienia. Klucz obcy bazuje na polu NrPracownika i wskazuje na pole NrPracownika tabeli Pracownicy. W tym przyk│adzie nie jest konieczne wymienianie pola NrPracownika w klauzuli REFERENCES po tabeli Pracownicy, gdy┐ pole NrPracownika jest kluczem podstawowym w tabeli Pracownicy.
Sub AlterTableX4()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Dodaj klucz obcy do tabeli Zam≤wienia.
dbs.Execute "ALTER TABLE Zam≤wienia " _
& "ADD CONSTRAINT Zwi╣zekZam≤wie± " _
& "FOREIGN KEY (NrPracownika) " _
& "REFERENCES Pracownicy (NrPracownika);"
dbs.Close
End Sub
W tym przyk│adzie klucz obcy jest usuwany z tabeli Zam≤wienia.
Sub AlterTableX5()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Usu± klucz obcy Zwi╣zekZam≤wie±
' z tabeli Zam≤wienia.
dbs.Execute "ALTER TABLE Zam≤wienia " _
& "DROP CONSTRAINT Zwi╣zekZam≤wie±;"
dbs.Close
End Sub